home *** CD-ROM | disk | FTP | other *** search
/ SGI Developer Toolbox 6.1 / SGI Developer Toolbox 6.1 - Disc 4.iso / src / swtools / trubasic / rolldemos / chooser / setup2.tru < prev    next >
Text File  |  1994-08-02  |  1KB  |  50 lines
  1. external
  2. module sg
  3. DECLARE PUBLIC rgbpts(,),rgbtxt$()
  4. DECLARE PUBLIC ippts(,),iptxt$()
  5. sub setup2
  6. ! rgb init
  7. let binc=.15
  8. let rgbtxt$(1)="Dance Demo"
  9. let rgbtxt$(2)="Unfold Demo"
  10. let rgbtxt$(3)="About Colors"
  11. let xspace=.2
  12. let xoff=.25
  13. let yoff=.28
  14. let u=ubound(rgbpts,1)
  15. for i=1 to u
  16.         let rgbpts(i,1)=xoff
  17.         let rgbpts(i,2)=rgbpts(i,1)+binc
  18.         let rgbpts(i,3)=yoff
  19.         let rgbpts(i,4)=rgbpts(i,3)+binc
  20.         let xoff=xoff+binc+xspace
  21.         if i=2 then
  22.                 let yoff=.61
  23.                 let xoff=.075+binc+xspace
  24.         end if
  25. next i
  26.  
  27. ! ip init
  28. let iptxt$(1)="Alternate Demo"
  29. let iptxt$(2)="Flip Demo"
  30. let iptxt$(3)="About IP"
  31. let iptxt$(4)="Brownian Shift"
  32. let xspace=.2
  33. let xoff=.075+(binc+xspace)/2
  34. let yoff=.31
  35. let u=ubound(ippts,1)
  36. for i=1 to u
  37.         let ippts(i,1)=xoff
  38.         let ippts(i,2)=ippts(i,1)+binc
  39.         let ippts(i,3)=yoff
  40.         let ippts(i,4)=ippts(i,3)+binc
  41.         let xoff=xoff+binc+xspace
  42.         if i=2 then
  43.                 let yoff=.61
  44.                 let xoff=.075+(binc+xspace)/2
  45.         end if
  46. next i
  47.  
  48. end sub
  49. end module
  50.